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14- ISK$V nen 


EY LE ‘ED eerers" - test for bad key' 
ULE EDTSBADKEY ! Test for bad 


TER: ceoie she BADKEY.BLI; a 


IDENT = *v04=000' rile: BADKEY.BLI Edit: J8S1005 


BEGIN 


RR eRe RARER AAAAAAAAAAAAAAAAAAREREAAEEEE ATTA AERA AAAAEREEEREERREREEEEEEE 
'@ 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
* 
® 
ah 
® 
= 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR “ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
& 
® 
x 
® 
® 
te 
® 
® 
* 
te 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* eePORAt itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 

Test for a bad key. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 
MODIFIED BY: 


1-001 - Original. DJS asd 3 -1981. This module was created by 
extracti ng routine EDTS$TST_BADK from module EDTCTR. 
1-002 - Regularize headers and fix file name. JBS 04-Mar-1981 
1-005 - TBS 2ekugs 1985 for new implementation of defined keys. 
-AUQ- 
1-004 - Don't alloy GOLD digit. JBS 16-Aug-1982 
1-005 - Add conditional for VT220 support. JBS 11-Feb-1983 
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dh prey } = test for bad key 


Declarations 
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ZSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


EQUIRE "EDTSRC:TRAROUNAM' ; 


ORWARD ROUTINE 


R 
F 


EDTSSTST_BADK; 


INCLUDE FILES: 


LIBRARY "EDTSRC:KEYPADDEF'; 


LIBRARY "EDTSRC: SUPPORTS’; 


EQUATED SYMBOLS: 


NONE 


OWN STORAGE: 


~~ 
Ls) 


NONE 
EXTERNAL REFERENCES: 
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WOR. OO 
0.00 cp 00 co 


Be 3:35:79 eecbumthactencchot saclompkey.euis1 o™ (33. 
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EDTSBADKEY EDTSBADKEY = test for bad ke $-se 
Abu 000 EDTSE ist BADK - test for bad key 14 Sep 


3 3) ; ! ZSBTTL ‘EDTSSTST_BADK = test for bad key’ 

: 38 1 GLOBAL ROUTINE EDTSSTST_BADK ( ! Test for bad key 

; 1 KEY ! the key to test 

; 9S a ee 

; 39 § 1 fee 

; 98 § i FUNCTIONAL DESCRIPTION: 

: 100 01! Test for a bad key. 

; 101 4 1; 

; 108 0678 FORMAL PARAMETERS: 

3 138 Rete : KEY The key to test 

: 106 0676 1 | IMPLICIT INPUTS: | 
3 107 77 13 | 
: 109 o679 1 | a 

: 110 0680 1 | IMPLICIT OUTPUTS: 

> 111 0681 1 } 

ae ue) ts ae 
; 114 0684 | ROUTINE VALUE | 
; 11g Bose : ; 1 = key is bad, 0 = key is good 

: 118 0688 1 | SIDE EFFECTS: 

: #119 0689 1! 

: 120 90 1! NONE 

: 133 92 11 

* § $638 . 

; $ 0694 BEGIN 

> 126 L 0696 2 IF SUPPORT_vT220 

3 : i Rene XTHEN 
> 129 0699 EXTERNAL | 
3 ; : th EDTS$SB_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE]; ! Information about characters 

i Be ie 

; 134 o70s ASSERT (.KEY LEQ K_KEY_MAX); 

: 136 706 IF ((.KEY LSS K_KPAD_BASE) AND (.KEY NEQ ASC_K_DEL) AND (.KEY GEQ ASC_K_SP)) THEN RETURN (1); 

; 138 0708 IF (KEY GEQ K_GOLD_BASE) AND (.KEY LSS K_GOLD_BASE + 256)) 

ie Bp neg 

; 148 L 71 ZIF SUPPORT_VT220 

Be ee te Lie 

: 145 ag IF (.EDTS$$B_CHAR_INFO C.KEY = K_GOLD_BASE, 0, 0, 8, 0] EQL %X'FO") THEN RETURN (1); 

: 149 U b719 ELSE 
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DT$BAD test for bad key 15-5 ep-1984 VAX-11 Bliss-32 V 

DT STL = test for bad key 14- 3387} 198 $3: $8: 79 DISKSVMSMASTER: tt Bt OAC SBADKEY. BLI; * i 
3s 16 u 071 
: 13 : a IF ((.KEY GEQ 2C°O") AND (.KEY LEQ %€°9')) THEN RETURN (1); 
i 191 721 “FI 
% 7 7 g END; 
s 156 724 
; 155 725 RETURN (0); 
; 156 726 END; ! of routine EDTS$TST_BADK 


-TITLE EDTSBADKEY EDTSBADKEY - test for bad key 
IDENT \V04-000\ 
EXTRN EDTS$ a. CHAR INFO 
EXTRN EDTSSINTER_ERR 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
0004 00000 -ENTRY EDTSSTST_BADK, Save R2 
52 04 aC 00 00002 MOVL KEY, R2 
QO0003E7 8F 6 01 si $4 CMPL R2, #999 
07 15 0000D BLEQ 1$ 
00000000G 00 00 FB QOOOF CALLS #0, EDTSSINTER_ERR 
0000012C —=s- BF 52 D1 00016 1$: CMPL R2, #300 
OE 18 0001D BGEQ 2s 
0000007F 8F 52 D1 OOO1F CMPL R2, #127 
05 13 00026 BEQL 2$ 
20 52 D1 00028 CMPL R2, #32 
1D 18 00028 BGEQ 3$ 
OOOO0O1F4 8F 3 D1 0002D 28: CMPL R2, #500 
18 19 900 4 BLSS 4$ 
Q000002F4 8&F 52 D1 00036 CMPL R2, #756 
OF 18 90030 BGEQ 4$ 
FO 8F 00000000G0042 91 O003F CMPB EDT$$B_CHAR_INFO=-500CR2], #240 
04 12 00048 BNEQ 4$ 
50 01 DO O004A 3$: MOVL #1, RO 
04 00040 RET 
50 D4 OO04E 4$: CLRL RO 
04 00050 RET 


; Routine Size: 81 bytes, Routine Base: _EDTSCODE + 0000 
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3 thes Hass OP: 12-2 
: Lines/CPU Min: 110 
3; Lexemes/CPU-Min: 11842 
; ry Used: 64 pages 
; Compication Complete 
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E KEY EDISBADKEY = test for bad ke i}. Sep-19 242: VAX-11 Bliss-32 V4.0-74 5 

a Peery EDTSSTST_BADK = test for bad key 1278 08-1 3be 93:53:79 DISKSVMSMASTER: CEDT.SRCJBADKEY.BLI;1 See (4) | 

j 
: 169 ; 078 } END ' of module EDTSBADKEY : 
oy § 731 0 ELUDOM ‘ 
PSECT SUMMARY | : 
: Name Bytes Attributes : 
3 : 
; _EDTSCODE 81 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
| ’ 
; Library Statistics | 
ROR eB (Ba. a a ee rere one Symbols ------- - Pages Processing | ; 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 3 0 40 00:00.3 : 
3 =$522$0UAC8: EDT. SRCJPSECTS.L32;1 2 1 50 7 00:00.1 3 
: =$255$DUA28: eel -Bebanrsooete chard 34 3 8 7 00:00.1 3 
; “$588 $DUA28: CEDT.SRCISUPPORTS.L32; 1 2 1 50 5 00:00.1 | ; 
. 
r 
| : 
: 
; COMMAND QUALIFIERS | : 
é BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:BADKEY/OBJ=OBJ$:BADKEY MSRC$:BADKEY .BLI/UPDATE=(ENH$:BADKEY) 3 
; Btaee 81 code + 0 data bytes | F 
un Time 0:10.7 | : 
: 
$ 
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